home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / QEKBD.AML < prev    next >
Text File  |  1996-07-17  |  24KB  |  624 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // KBD.AML
  5. // QEdit/TSE Keyboard definitions (included by Main.aml)
  6. //
  7. // If you have made any changes, save this file and select Recompile
  8. // the Editor from the Set menu. Exit and re-enter the editor for
  9. // your changes to take effect.
  10. //--------------------------------------------------------------------
  11.  
  12. //--------------------------------------------------------------------
  13. // Edit and File Manager windows
  14. //--------------------------------------------------------------------
  15.  
  16. object edit_fmgr
  17.  
  18.   // Controls
  19.   function  '≡'                                // close window
  20.     close
  21.   end
  22.  
  23.   // Menu activation
  24.   key  <esc>           gotobar                 // to last menu bar item (qe)
  25.   key  <f10>           gotobar                 // to last menu bar item (qe)
  26.   key  <f1>            gotomenu "help"         // goto help pull-down menu (qe)
  27.   key  <alt t>         gotobar2                // to last toolbar/drive item
  28.   key  <alt f>         gotomenu "file"         // to file menu (qe)
  29.  
  30.   // Scroll
  31.   key  <pgdn>          pagedown                // scroll down (qe)
  32.   key  <pgup>          pageup                  // scroll up (qe)
  33.   key  <ctrl home>     row (getviewtop)        // to page top (qe)
  34.   key  <ctrl end>      row (getviewbot)        // to page bottom (qe)
  35.   key  <ctrl pgup>     row 1                   // to file top (qe)
  36.   key  <ctrl pgdn>     row (getlines)          // to file bottom (qe)
  37.   key  <shift f5>      adjustrow               // center cursor (qe)
  38.   key  <f5>            adjustrow 1             // scroll to page top (qe)
  39.   key  <ctrl f10>      adjustrow (getviewrows) // scroll to page bottom
  40.  
  41.   // scroll down one line (qe)
  42.   key  <ctrl z>
  43.     rollrow 1
  44.     if getrow > getviewtop then
  45.       up
  46.     end
  47.   end
  48.  
  49.   // scroll up one line (qe)
  50.   key  <ctrl w>
  51.     rollrow -1
  52.     if getrow < getviewbot then
  53.       down
  54.     end
  55.   end
  56.  
  57.   key  <ctrl up>       rollrow -1              // scroll up one line (qe)
  58.   key  <ctrl down>     rollrow  1              // scroll down one line (qe)
  59.   key  <alt f5>        rollcol -1              // scroll left one col (qe)
  60.   key  <alt f6>        rollcol  1              // scroll right one col (qe)
  61.   key  <ctrl q><p>     lastpos                 // to last cursor position (qe)
  62.  
  63.   // File
  64.   key  <alt e>         askopen                 // open prompt (qe)
  65.   key  <alt 0>         filelist                // file list (qe)
  66.   key  <ctrl k><q>     close                   // close window (qe)
  67.   key  <alt x>         closeall                // close all windows (qe)
  68.   key  <shift f1>      quickref 'qw'           // quick function reference
  69.   key  <shift f2>      quickref 'fw'           // function reference
  70.  
  71.   // Window
  72.   key  <ctrl o><z>     maximize                // maximize window (qe)
  73.   key  <ctrl o><n>     nextwindow              // next window (qe)
  74.   key  <ctrl o><p>     prevwindow              // prev window (qe)
  75.   key  <ctrl k><q>     close                   // close file (qe)
  76.  
  77.   // close window (qe)
  78.   key  <ctrl o><c>
  79.     if getwincount > 1 then
  80.       deletewin
  81.     end
  82.     tile 'v'
  83.   end
  84.  
  85.   // one window (qe)
  86.   key <ctrl o><o>
  87.     while getwincount > 1 do
  88.       deletewin
  89.     end
  90.     cascade
  91.   end
  92.  
  93.   // Search
  94.   key  <ctrl s>        askscan                 // file scan prompt
  95.  
  96.   key  <ctrl [>        gotomark 't'            // find top of block (qe)
  97.   key  <ctrl q><b>     call <ctrl [>
  98.   key  <ctrl ]>        gotomark 'b'            // find bot of block (qe)
  99.   key  <ctrl q><k>     call <ctrl ]>
  100.  
  101.   // Set
  102.   key  <ctrl f1>       togglemode              // toggle video mode (qe)
  103.   key  <f12>           recompile               // recompile the editor
  104.  
  105.   // Macro
  106.   key  <alt f9>        askrun                  // Dos command prompt (qe)
  107.   key  <alt f8>        askruncap               // Dos capture prompt
  108.   key  <f9>            shell                   // exit to Dos (qe)
  109.   key  <shift f12>     pickmacro               // macro picklist
  110.   key  <ctrl f12>      runmacro2 "maclist"     // macro menu
  111.   key  <alt f12>       askeval                 // macro command prompt
  112.  
  113.   // undefined or unnamed keys
  114.   key <otherkey> (keycode)
  115.     say (geteventname (keycode)) + " not defined"
  116.   end
  117.  
  118.  
  119. //--------------------------------------------------------------------
  120. // Prompts and Edit windows
  121. //--------------------------------------------------------------------
  122.  
  123. object prompt
  124.  
  125.   // Controls
  126.   function  '≡'        close                   // close window
  127.   end
  128.  
  129.   function  '*'        enter                   // simulate <enter>
  130.   end                                          //  (2-line box only)
  131.  
  132.   // Cursor
  133.   key  <left>          left                    // move cursor left (qe)
  134.   key  <right>         right                   // move cursor right (qe)
  135.   key  <home>          col 1                   // to column one (qe)
  136.   key  <end>           col  getlinelen + 1     // to end of line (qe)
  137.  
  138.   // Cursor + CUA-marking
  139.   key  <shift left>    left
  140.                        smark
  141.   key  <shift right>   right
  142.                        smark
  143.   key  <shift home>    col 1
  144.                        smark
  145.   key  <shift end>     col getlinelen + 1
  146.                        smark
  147.  
  148.   // Scroll
  149.   key  <f7>            rollcol -(getviewcols - 1)   // page left
  150.   key  <f8>            rollcol   getviewcols - 1    // page right
  151.  
  152.   // Editing
  153.   key  <ins>           setting 'I' TOGGLE      // toggle insert mode (qe)
  154.   key  <del>           delchar                 // delete character (qe)
  155.   key  <backspace>     backsp                  // delete left character (qe)
  156.   key  <f6>            delchar MAX_COL         // erase to end of line (qe)
  157.   key  <alt del>       call <f6>
  158.   key  <ctrl p>        literal                 // enter literal character (qe)
  159.   key  <ctrl a>        asciilist               // display ascii chart (qe)
  160.  
  161.   // Block
  162.   key  <alt a>         markchar                // mark stream (qe)
  163.   key  <alt k>         markcolumn              // mark column (qe)
  164.   key  <ctrl k><t>     markword                // mark word (qe)
  165.   key  <alt 2>         markeol                 // mark to end of line
  166.   key  <alt u>         destroymark             // unmark (qe)
  167.  
  168.   // copy block to prompt (qe)
  169.   key  <alt c>
  170.                        instext (getmarktext)
  171.                        col  getlinelen + 1
  172.  
  173.   // paste from clipboard to prompt (qe)
  174.   key  <grey*>
  175.                        oldmark = usemark _ClipName
  176.                        instext (getmarktext)
  177.                        usemark oldmark
  178.                        col  getlinelen + 1
  179.  
  180.   // copy from prompt to clipboard (qe)
  181.   key  <grey+>         copy
  182.  
  183.   // Prompt history
  184.   key  <up>            prevhist                // retrieve prev prompt
  185.   key  <down>          nexthist                // retrieve next prompt
  186.   key  <pgup>          askhistory              // history popup menu
  187.   key  <pgdn>          askhistory              // history popup menu
  188.  
  189.   // Exit
  190.   key  <esc>           close                   // quit prompt (qe)
  191.   key  <ctrl k><q>     call <esc>
  192.  
  193.   // non-function keys
  194.   key  <char> (character)                      // typeable keys
  195.     write character
  196.   end
  197.  
  198.   // filename completion
  199.   key  <ctrl tab>      askcomplete             // filename completion
  200.   key  <tab>           askcomplete             // filename completion (qe)
  201.  
  202.  
  203. //--------------------------------------------------------------------
  204. // Edit windows
  205. //--------------------------------------------------------------------
  206.  
  207. object edit
  208.  
  209.   // Controls
  210.   function  '≡'
  211.     close                                      // close window
  212.   end
  213.  
  214.   // Menu
  215.   key  <esc>           gotobar                 // to last menu bar item (qe)
  216.  
  217.   // Cursor
  218.   key  <up>            up                      // move cursor up (qe)
  219.   key  <down>          down                    // move cursor down (qe)
  220.  
  221.   // Cursor + CUA-marking
  222.   key  <shift